home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00001Series_122.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  2.3 KB  |  71 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   if integerp(value(field "qt")) = 0 then
  4.     alert("Please enter a number")
  5.     put EMPTY into field "qt"
  6.     abort()
  7.   end if
  8.   if the number of chars in field "qt" < 1 then
  9.     alert("You must enter a quantity")
  10.     abort()
  11.   end if
  12.   repeat with i = 1 to length(field "qt")
  13.     if char i of field "qt" = " " then
  14.       delete char i of field "qt"
  15.     end if
  16.     if char i of field "qt" = "," then
  17.       delete char i of field "qt"
  18.     end if
  19.   end repeat
  20.   if length(field "qt") = 5 then
  21.     put " " before field "qt"
  22.   end if
  23.   if length(field "qt") = 4 then
  24.     put "  " before field "qt"
  25.   end if
  26.   if length(field "qt") = 3 then
  27.     put "   " before field "qt"
  28.   end if
  29.   if length(field "qt") = 2 then
  30.     put "    " before field "qt"
  31.   end if
  32.   if length(field "qt") = 1 then
  33.     put "     " before field "qt"
  34.   end if
  35.   if length(item 2 of field "tempfield") = 14 then
  36.     put " " after item 2 of field "tempfield"
  37.   end if
  38.   if length(item 2 of field "tempfield") = 13 then
  39.     put "  " after item 2 of field "tempfield"
  40.   end if
  41.   if length(item 2 of field "tempfield") = 12 then
  42.     put "   " after item 2 of field "tempfield"
  43.   end if
  44.   if length(item 2 of field "tempfield") = 11 then
  45.     put "    " after item 2 of field "tempfield"
  46.   end if
  47.   if length(item 2 of field "tempfield") = 10 then
  48.     put "     " after item 2 of field "tempfield"
  49.   end if
  50.   put field "qt" into item 16 of field "tempfield"
  51.   put field "tempfield" & RETURN after field "masterfield"
  52.   put EMPTY into field "tempfield"
  53.   put EMPTY into field "orderfield"
  54.   put EMPTY into field "detail"
  55.   repeat with i = 1 to the number of lines in field "masterfield"
  56.     if the number of chars in line i of field "masterfield" < 2 then
  57.       exit repeat
  58.     end if
  59.     put item 16 of line i of field "masterfield" & "   " after field "orderfield"
  60.     put item 2 of line i of field "masterfield" & " " after field "orderfield"
  61.     put item 1 of line i of field "masterfield" & RETURN after field "orderfield"
  62.     set the textStyle of field "orderfield" to "Plain"
  63.     set the textFont of field "orderfield" to "Courier New"
  64.     set the textSize of field "orderfield" to 12
  65.   end repeat
  66.   set the keyDownScript to "whichkey3"
  67.   set the puppet of sprite 4 to 0
  68.   set the puppet of sprite 10 to 0
  69.   go("orderarea")
  70. end
  71.